home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / ctxt.zip / CTXT.LSP < prev   
Text File  |  1991-08-27  |  655b  |  31 lines

  1. (DEFUN *ERROR*  ()
  2. (GRTEXT)
  3. )
  4.  
  5. (DEFUN C:CTXT (/ ELIST CNT ENT TXT E)
  6. (SETVAR "CMDECHO" 0)(GRAPHSCR)
  7. (SETQ ELIST (SSGET))
  8. (IF (/= ELIST NIL)(PROGN(SETQ CNT   0
  9.                   SLEN  (SSLENGTH ELIST))
  10.  
  11. (WHILE (/= CNT SLEN)
  12.        (SETQ ENT (ENTGET(SSNAME ELIST CNT)))
  13.        (IF (=(CDR(ASSOC 0 ENT))"TEXT")(PROGN
  14.     (COMMAND "SELECT" (SSNAME ELIST CNT))
  15.     (SETQ TXT (CDR(ASSOC 1 ENT))
  16.           PPMT (STRCAT "\nENTER NEW TEXT <" TXT ">: ")
  17.           NTXT (GETSTRING T PPMT)
  18.     )
  19.     (COMMAND)
  20.     (IF (= NTXT "")(SETQ NTXT TXT))
  21.     (SETQ E(SUBST (CONS 1 NTXT) (ASSOC 1 ENT)ENT))
  22.     (ENTMOD E)
  23.        ))
  24.        (SETQ CNT (+ CNT 1))
  25. )))
  26. (PRINC)
  27. )
  28.  
  29.        
  30.  
  31.